;;; This file is part of guix-bavier.git
;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
;;; License: GPLv3+

(define-module (bavier packages xorg)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix download)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages image)
  #:use-module (gnu packages netpbm)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages xorg)
  #:use-module ((guix licenses) #:prefix license:))

(define-public xplanet
  (package
   (name "xplanet")
   (version "1.3.1")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://sourceforge/xplanet/xplanet/"
                                version "/xplanet-" version ".tar.gz"))
            (sha256
             (base32
              "1rzc1alph03j67lrr66499zl0wqndiipmj99nqgvh9xzm1qdb023"))))
   (build-system gnu-build-system)
   (native-inputs
    `(("pkg-config" ,pkg-config)))
   (inputs
    `(("freetype" ,freetype)
      ("giflib" ,giblib)
      ("libjpeg" ,libjpeg)
      ("libpng" ,libpng)
      ("libxext" ,libxext)
      ("netpbm" ,netpbm)
      ("pango" ,pango)
      ("zlib" ,zlib)))
   (home-page "http://xplanet.sourceforge.net/")
   (synopsis "Planetary body renderer")
   (description "Xplanet renders an image of a planet into an X window or a
file.  All of the major planets and most satellites can be drawn, and
different map projections are also supported, including azimuthal, hemisphere,
Lambert, Mercator, Mollweide, Peters, polyconic, and rectangular.")
   (license license:gpl2)))
